Apple Reference & Presen…rary 8 (Internal Edition)/Apple R&P Lib Internal v8.0.iso/5-Fonts & Software/Demo Software/Aldus PageMaker 4.0 Demo/Aldus/APDs/LaserWriter V23.apd

Text File | 1990-05-16 | 7KB | 186 lines

@Comment: "LaserWriter V23.apd" for Apple LaserWriter with version 23 ROMs.
@Comment: Aldus Printer Description (APD) file
@Comment:     $Revision:   3.3  $
@Comment:     $Date:   09 Jun 1988 15:59:20  $
@Comment: This APD produced for use with Aldus PageMaker 4.0 or earlier version.
@Comment: Keyword values are currently limited to 255 characters in length.

@FormatVersion: "1.0"
@Product: "(LaserWriter)"
@PSVersion: "(23.0)"
@PSRevision: "1"

@Resolution: "300 300"

@AllowComments: "true"
@AllowVMQuery: "true"

@Comment:  "FreeVM" value is equivalent to vmstatus "maximum" minus "used" values
@FreeVM: "170000"
@WorkingMem: "25000"
@AldusHeaderMem: "34000"
@Comment: Example of declaration of a downloadable font's memory requirement:
@Comment: @FontMem "Benjo-Light": "82600"

@Comment: PatchFile is sent right after %%EndComments, AldusPatchFile right before %%EndSetup.
@PatchFile: "statusdict begin userdict begin /a4f {
0 setblink
statusdict /jobstate (printing) put
margins exch 141 add exch 256 add 8 div round cvi frametoroket
statusdict /jobstate (busy) put
1 setblink
} bind def end end
"
@End
@AldusPatchFile: "userdict /AldusDict known {(A previous version PageMaker header is loaded.) = flush} if"

@ExitServer: "serverdict begin exitserver "
@Password: "0"

@DefaultScreenFreq: "60"
@DefaultScreenAngle: "45"
@DefaultScreenProc: "{dup mul exch dup mul add sqrt 1 exch sub}"

@ScreenFreq: ""
@ScreenAngle: ""
@ScreenProc: ""
@InvertScreenProc: "{dup mul exch dup mul add 1 sub}"
@Transfer: ""
@InvertTransfer: "{1 exch sub}"
@NormalizedTransfer: ""
@End
@InvertNormalizedTransfer: ""
@End

@?FontList: "save FontDirectory { pop = flush } forall (*) = flush restore"
@?FontQuery: "FontDirectory exch known {1}{0} ifelse = flush"
@?VMStatus: "vmstatus 3 -1 roll dup 10 gt
{3 1 roll exch pop dup} {3 1 roll} ifelse == == == flush"
@?OutputOrder: "/pagestackorder where{pagestackorder {(facedown)}{(faceup)}
 ifelse}{(faceup)}ifelse = flush"
@Comment: Paper tray query compares returned value with selected PageSize,
@Comment:    up to length of returned value only: i.e, "A4" matches "A4small"
@?PaperTray: "mark () statusdict /printerstatus known {
userdict /T statusdict /printerstatus get exec 16#07E and put
 T 2 eq {(A4)} if T 8 eq {(Letter)} if T 24 eq {(Legal)} if} if
 = flush cleartomark"
@End

@Comment: PageSize options appear in the "Paper" list box in the Printer-specific dialog.
@DefaultPageSize:        "Letter"
@PageSize Letter:        "letter"
@PageSize Lettersmall:    "note"
@PageSize A4:            "/a4f where { pop
statusdict begin userdict begin /a4 {
[300 72 div 0  0 -300 72 div  -72 3448]
292 3365
{a4f} framedevice
60 45 {dup mul exch dup mul add 1.0 exch sub} setscreen
{} settransfer
initgraphics erasepage
} bind def end end
a4} if"
@End
@PageSize Legal:         "legal"

@Comment: PageRegion gives the printable area of each paper option.
@PageRegion Letter:         "18 7.92 594 784.08"
@PageRegion Lettersmall:     "29.52 30.24 582.48 761.76"
@PageRegion A4:             "17.28 21.96 578.16 819.72"
@PageRegion Legal:             "64.08 41.76 547.92 966.24"

@Comment: PaperDimension gives the total paper size of each option.
@PaperDimension Letter:         "612 792"
@PaperDimension Lettersmall:     "612 792"
@PaperDimension A4:             "595.28 841.89"
@PaperDimension Legal:             "612 1008"

@DefaultOutputOrder: "faceup"

@ManualFeed true: "statusdict begin /manualfeed true def end"
@ManualFeed false: "statusdict begin /manualfeed false def end"

@DefaultFont: "Courier"
@Font "Times-Roman": "Standard" "(001.000)"
@Font "Times-Bold": "Standard" "(001.000)"
@Font "Times-Italic": "Standard" "(001.000)"
@Font "Times-BoldItalic": "Standard" "(001.000)"
@Font "Helvetica": "Standard" "(001.000)"
@Font "Helvetica-Bold": "Standard" "(001.000)"
@Font "Helvetica-Oblique": "Standard" "(001.000)"
@Font "Helvetica-BoldOblique": "Standard" "(001.000)"
@Font "Courier": "Standard" "(001.000)"
@Font "Courier-Bold": "Standard" "(001.000)"
@Font "Courier-Oblique": "Standard" "(001.000)"
@Font "Courier-BoldOblique": "Standard" "(001.000)"
@Font "Symbol": "Standard" "(001.000)"


@Comment: The order of occurrence determines the order of parsing; put general messages last.
@Comment: PrinterWarning beeps and displays the translation string in the status line.

@PrinterWarning    "%%[ PrinterError: paper \where\ misfeed\lost\ ]%%"
                : "Printer “^2” needs attention: paper jam."
@PrinterWarning    "%%[ PrinterError: \Reason\ ]%%"
                : "Printer “^2” needs attention: \Reason\."

@PrinterWarning    "\s\status: PrinterError: paper \where\ misfeed\lost\"
                : "Printer “^2” needs attention: paper jam."
@PrinterWarning    "\s\status: PrinterError: \Reason\; source: \source\"
                : "Printer “^2” needs attention: \Reason\."

@ParameterReason    "no paper tray" :         "no paper tray"
@ParameterReason    "out of paper" :         "out of paper"
@ParameterReason    "cover open" :             "cover open"
@ParameterReason    "warming up" :             "warming up"
@ParameterReason    "service call" :         "service call"
@ParameterReason    "resetting printer" :     "resetting printer"
@ParameterReason    "cover open" :             "cover open"
@ParameterReason    "timeout, clearing printer" : "timeout"
@ParameterReason    "timeout" :             "timeout"
@ParameterReason    "manual feed timeout" : "manual feed timeout"
@ParameterReason    "no toner cartridge" :     "no toner cartridge"


@Comment: PrinterMessage displays the translation string in the status line.
@PrinterMessage     "job: \username\; document: \jobname\; status: \Status\; source: \source\"
                : "User: \username\;  document: \jobname\;  status: \Status\."
@PrinterMessage     "job: \jobname\; status: \Status\; source: \source\"
                : "Document: \jobname\;  status: \Status\."
@PrinterMessage     "status: \Status\; source: \source\"
                : "Status: \Status\."
@PrinterMessage     "\Font1\ not found, using \Font2\"
                : "Font \Font1\ is not found on ^2, substituting \Font2\"

@ParameterStatus     "idle"    : "idle"
@ParameterStatus     "busy"    : "processing job"
@ParameterStatus     "waiting"    : "preparing data"
@ParameterStatus    "printing"    : "printing"

@Comment: a null translation string causes no message to display.
@PrinterMessage    "%%[ exitserver: permanent state may be changed ]%%"
                : ""
@PrinterMessage    "%%[ Flushing: rest of job (to end-of-file) will be ignored ]%%"
                : ""

@Comment: Parameter substitution of printer name for "^2" is not allowed in "...Alert" messages!
@Comment: PrinterWarningAlert displays translation string in a warning-alert box and continues.
@PrinterWarningAlert "A previous version PageMaker header is loaded."
    : "Printer performance may improve if you do not print with PageMaker version 1.2 on this net."

@Comment: PrinterErrorAlert displays translation string in a stop-alert box and aborts printing.
@PrinterErrorAlert    "%%[ Error: \fonterror\; OffendingCommand: fontdownload ]%%"
                : "The font being downloaded has not been initialized for this printer."
@PrinterErrorAlert    "%%[ Error: VMerror; OffendingCommand: \operator\ ]%%"
                : "Printer memory exceeded; turn printer off and on, or print smaller sections of the document."
@PrinterErrorAlert    "%%[ Error: timeout; OffendingCommand: \operator\ ]%%"
                : "The printer had to wait too long, and went on to the next job; try again."
@PrinterErrorAlert    "%%[ Error: \error\; OffendingCommand: \operator\ ]%%"
                : "Cannot print due to PostScript error: “\error\,” in command: “\operator\.”"
@PrinterErrorAlert    "Fatal system error \error\"
                : "The printer has encountered an error. Simplify your document or try again."